home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / gs_lev2.ps < prev    next >
Text File  |  1996-01-10  |  11KB  |  328 lines
  1. %    Copyright (C) 1990, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for Level 2 functions.
  19. % When this is run, systemdict is still writable,
  20. % but (almost) everything defined here goes into level2dict.
  21.  
  22. level2dict begin
  23.  
  24. % ------ Miscellaneous ------ %
  25.  
  26. (<<) cvn /mark load def
  27. (>>) cvn /.dicttomark load def
  28. /currentsystemparams { mark .currentsystemparams .dicttomark } odef
  29. /currentuserparams { mark .currentuserparams .dicttomark } odef
  30. /deviceinfo { currentdevice getdeviceprops .dicttomark readonly } odef
  31. /languagelevel 2 def
  32. % When running in Level 2 mode, this interpreter is supposed to be
  33. % compatible with PostScript version 2010 (I think).
  34. /version (2010) def
  35.  
  36. % If binary tokens are supported by this interpreter,
  37. % set an appropriate default binary object format.
  38. /setobjectformat where
  39.  { pop
  40.    currentsystemparams dup
  41.    /RealFormat get (IEEE) eq { 1 } { 3 } ifelse
  42.    exch /ByteOrder get { 1 add } if
  43.    setobjectformat
  44.  } if
  45.  
  46. % ------ Virtual memory ------ %
  47.  
  48. /currentglobal /currentshared load def
  49. /gcheck /scheck load def
  50. /setglobal /setshared load def
  51. % We can make the global dictionaries very small, because they auto-expand.
  52. /globaldict currentdict /shareddict .knownget not { 4 dict } if def
  53. /GlobalFontDirectory SharedFontDirectory def
  54.  
  55. % ------ IODevices ------ %
  56.  
  57. /.getdevparams where
  58.  { pop /currentdevparams { .getdevparams .dicttomark } odef
  59.  } if
  60. /.putdevparams where
  61.  { pop /setdevparams { mark { } forall counttomark 2 add -1 roll .putdevparams } odef
  62.  } if
  63.  
  64. % ------ Job control ------ %
  65.  
  66. serverdict begin
  67.  
  68. % We could protect the job information better, but we aren't attempting
  69. % (currently) to protect ourselves against maliciousness.
  70.  
  71. /.jobsave null def        % top-level save object
  72. /.jobsavelevel 0 def        % save depth of job (0 if .jobsave is null,
  73.                 % 1 otherwise)
  74. /.adminjob true def        % status of current unencapsulated job
  75.  
  76. /exitserver
  77.  { true exch startjob not { /exitserver /invalidaccess signalerror } if
  78.  } bind def
  79.  
  80. end        % serverdict
  81.  
  82. %**************** The definition of startjob is not complete yet, since
  83. % it doesn't clear the exec stack, doesn't reset stdin/stdout,
  84. % doesn't run the job under its own control, and doesn't reset
  85. % other aspects of the interpreter.
  86. /startjob
  87.  { vmstatus pop pop serverdict /.jobsavelevel get eq
  88.    1 index .checkpassword 0 gt and
  89.     { .checkpassword count 2 roll count 2 sub { pop } repeat
  90.       cleardictstack
  91.       serverdict /.jobsave get dup null eq { pop } { restore } ifelse
  92.       exch
  93.        {    % unencapsulated job
  94.      serverdict /.jobsave null put
  95.      serverdict /.jobsavelevel 0 put
  96.      serverdict /.adminjob 3 -1 roll 1 gt put
  97.        }
  98.        {    % encapsulated job
  99.      serverdict /.jobsave save put
  100.      serverdict /.jobsavelevel 1 put
  101.      userdict /quit /stop load put
  102.      pop
  103.        }
  104.       ifelse true
  105.     }
  106.     { pop pop false
  107.     }
  108.    ifelse
  109.  } odef
  110.  
  111. systemdict begin
  112. /quit
  113.  { //systemdict /serverdict get /.jobsave get null eq
  114.     { //quit }
  115.     { //systemdict /quit get /invalidaccess signalerror }
  116.    ifelse
  117.  } bind odef
  118. end
  119.  
  120. % ------ Compatibility ------ %
  121.  
  122. % In Level 2 mode, the following replace the definitions that gs_statd.ps
  123. % installs in statusdict and serverdict.
  124. % Note that statusdict must be allocated in local VM.
  125. % We don't bother with many of these yet, and the ones defined in terms
  126. % of currentsystemparams are cavalier about allocating a dictionary
  127. % in order to retrieve a single element from it....
  128.  
  129. /.dict1 { exch mark 3 1 roll .dicttomark } bind def
  130.  
  131. currentglobal false setglobal 25 dict exch setglobal begin
  132. currentsystemparams
  133.  
  134. /buildtime 1 index /BuildTime get def
  135. /byteorder 1 index /ByteOrder get def
  136. /checkpassword { .checkpassword 0 gt } bind def
  137. /defaulttimeouts
  138.  { currentsystemparams dup
  139.    /JobTimeout .knownget not { 0 } if
  140.    exch /WaitTimeout .knownget not { 0 } if
  141.    currentpagedevice /ManualFeedTimeout .knownget not { 0 } if
  142.  } bind def
  143. dup /DoStartPage known
  144.  { /dostartpage { currentsystemparams /DoStartPage get } bind def
  145.    /setdostartpage { /DoStartPage .dict1 setsystemparams } bind def
  146.  } if
  147. dup /StartupMode known
  148.  { /dosysstart { currentsystemparams /StartupMode get 0 ne } bind def
  149.    /setdosysstart { { 1 } { 0 } ifelse /StartupMode .dict1 setsystemparams } bind def
  150.  } if
  151. %****** Setting jobname is supposed to set userparams.JobName, too.
  152. /jobname { currentuserparams /JobName get } bind def
  153. /jobtimeout { currentuserparams /JobTimeout get } bind def
  154. %manualfeed
  155. %manualfeedtimeout
  156. /margins
  157.  { currentpagedevice /Margins .knownget { exch } { [0 0] } ifelse
  158.  } bind def
  159. %pagecount
  160. %pagestackorder
  161. /printername
  162.  { currentsystemparams /PrinterName .knownget not { () } if exch copy
  163.  } bind def
  164. %/ramsize { currentsystemparams /RamSize get } bind def
  165. /realformat 1 index /RealFormat get def
  166.  
  167. /.setpagedevice where
  168.  { pop
  169.    /setdefaulttimeouts
  170.     { exch mark /ManualFeedTimeout 3 -1 roll
  171.       /Policies mark /ManualFeedTimeout 1 .dicttomark
  172.       .dicttomark setpagedevice
  173.       /WaitTimeout exch mark /JobTimeout 5 2 roll .dicttomark setsystemparams
  174.     } bind def
  175.    /setmargins
  176.     { exch 2 array astore /Margins .dict1 setpagedevice
  177.     } bind def
  178.  }
  179. if
  180. %setpagestackorder
  181. dup /PrinterName known
  182.  { /setprintername { /PrinterName .dict1 setsystemparams } bind def
  183.  } if
  184. currentuserparams /WaitTimeout known
  185.  { /waittimeout { currentuserparams /WaitTimeout get } bind def
  186.  } if
  187.  
  188. /.setpagedevice where
  189.  { pop 
  190.    /pagemargin
  191.     { currentpagedevice /PageOffset .knownget { 0 get } { 0 } ifelse
  192.     } bind def
  193.    /pageparams
  194.     { currentpagedevice
  195.       dup /Orientation .knownget { 1 and ORIENT1 { 1 xor } if } { 0 } ifelse exch
  196.       dup /PageSize get aload pop 3 index 0 ne { exch } if 3 2 roll
  197.       /PageOffset .knownget { 0 get } { 0 } ifelse 4 -1 roll
  198.     } bind def
  199.    /.setpagesize { 2 array astore /PageSize .dict1 setpagedevice } bind def
  200.    /setduplexmode { /Duplex .dict1 setpagedevice } bind def
  201.    /setpagemargin { 0 2 array astore /PageOffset .dict1 setpagedevice } bind def
  202.    /setpageparams
  203.     { mark /PageSize 6 -2 roll
  204.       4 index 1 and ORIENT1 { 1 } { 0 } ifelse ne { exch } if 2 array astore
  205.       /Orientation 5 -1 roll ORIENT1 { 1 xor } if
  206.       /PageOffset counttomark 2 add -1 roll 0 2 array astore
  207.       .dicttomark setpagedevice
  208.     } bind def
  209.    /setresolution
  210.     { dup 2 array astore /HWResolution .dict1 setpagedevice
  211.     } bind def
  212.  }
  213. if
  214.  
  215. pop        % currentsystemparams
  216.  
  217. % Flag the current dictionary so it will be swapped when we
  218. % change language levels.  (See zmisc2.c for more information.)
  219. /statusdict currentdict def
  220.  
  221. currentdict end
  222. /statusdict exch def
  223.  
  224. % ------ Color spaces ------ %
  225.  
  226. % Define the setcolorspace procedures.
  227. /colorspacedict mark
  228.   /DeviceGray { pop 0 setgray } bind
  229.   /DeviceRGB { pop 0 0 0 setrgbcolor } bind
  230.   /setcmykcolor where
  231.    { pop /DeviceCMYK { pop 0 0 0 1 setcmykcolor } bind
  232.    } if
  233.   /.setcieaspace where
  234.    { pop /CIEBasedA { NOCIE { pop 0 setgray } { 1 get .setcieaspace } ifelse } bind
  235.    } if
  236.   /.setcieabcspace where
  237.    { pop /CIEBasedABC { NOCIE { pop 0 0 0 setrgbcolor } { 1 get .setcieabcspace } ifelse } bind
  238.    } if
  239.   /.setciedefspace where
  240.    { pop /CIEBasedDEF { NOCIE { pop 0 0 0 setrgbcolor } { 1 get .setciedefspace } ifelse } bind
  241.    } if
  242.   /.setciedefgspace where
  243.    { pop /CIEBasedDEFG { NOCIE { pop 0 0 0 1 setcmykcolor } { 1 get .setciedefgspace } ifelse } bind
  244.    } if
  245.   /.setseparationspace where
  246.    { pop /Separation { dup 2 get setcolorspace .setseparationspace } bind
  247.    } if
  248.   /.setindexedspace where
  249.    { pop /Indexed { dup 1 get setcolorspace .setindexedspace } bind
  250.    } if
  251.   /.setpatternspace where
  252.    { pop /Pattern
  253.       { dup length 1 gt { dup 1 get setcolorspace } if
  254.         .setpatternspace
  255.       } bind
  256.    } if
  257. .dicttomark def
  258.  
  259. /.devcs [/DeviceGray /DeviceRGB /DeviceCMYK] readonly def
  260. /currentcolorspace
  261.  { .currentcolorspace dup type /integertype eq
  262.     { //.devcs exch 1 getinterval
  263.     } if
  264.  } odef
  265. currentdict /.devcs undef
  266.  
  267. /setcolorspace
  268.  { dup type /nametype eq { 1 array astore } if
  269.    dup //colorspacedict 1 index 0 get get exec
  270.    .setcolorspace
  271.  } odef
  272.  
  273. % Initialize the CIE rendering dictionary if necessary.
  274. % The most common CIE files seem to assume the "calibrated RGB color space"
  275. % described on p. 189 of the PostScript Language Reference Manual,
  276. % 2nd Edition; we simply invert this transformation back to RGB.
  277. /setcolorrendering where
  278.  { pop mark
  279.    /ColorRenderingType 1
  280. % We must make RangePQR and RangeLMN large enough so that values computed by
  281. % the assumed encoding MatrixLMN don't get clamped.
  282.    /RangePQR [0 0.9505 0 1 0 1.0890]
  283.    /TransformPQR [ { 4 { exch pop } repeat } dup dup ]
  284.    /RangeLMN [0 0.9505 0 1 0 1.0890]
  285.    /MatrixABC
  286.     [ 3.24063 -0.96893  0.05571
  287.      -1.53721  1.87576 -0.20402
  288.      -0.49863  0.04152  1.05700
  289.     ]
  290.    /EncodeABC [{0 max 0.45 exp} bind dup dup]
  291.    /WhitePoint [0.9505 1 1.0890]
  292.    .dicttomark setcolorrendering
  293.  } if
  294.  
  295. % ------ Painting ------ %
  296.  
  297. % A straightforward definition of execform that doesn't actually
  298. % do any caching.
  299. /execform
  300.  { dup /Implementation known not
  301.     { dup /FormType get 1 ne { /rangecheck signalerror } if
  302.       dup /Implementation null put readonly
  303.     } if
  304.    gsave dup /Matrix get concat
  305.    dup /BBox get aload pop
  306.    exch 3 index sub exch 2 index sub rectclip
  307.    dup /PaintProc get exec
  308.    grestore
  309.  } odef
  310.  
  311. /makepattern
  312.  { currentglobal
  313.     { false setglobal .buildpattern true setglobal }
  314.     { .buildpattern }
  315.    ifelse
  316.    exch dup length 1 add dict copy
  317.    dup /Implementation 4 -1 roll put
  318.    readonly
  319.  } odef
  320.  
  321. /setpattern
  322.  { currentcolorspace 0 get /Pattern ne
  323.     { [ /Pattern currentcolorspace ] setcolorspace } if
  324.    setcolor
  325.  } odef
  326.  
  327. end                % level2dict
  328.